home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / asprog.EXE / MCD.ASM < prev    next >
Assembly Source File  |  1996-06-19  |  1KB  |  61 lines
  1. ; MD directory
  2. ; CD directory komutlarìnìn birleƒimi..
  3.  
  4. makedir macro dirname
  5.         lea dx,dirname
  6.         mov ah,39h
  7.         int 21h
  8.         endm
  9. chdir   macro dirname
  10.         lea dx,dirname
  11.         mov ah,3bh
  12.         int 21h
  13.         endm
  14.  
  15. clsspc  macro
  16.         local done
  17. done:
  18.         lodsb
  19.         cmp al,32
  20.         jz done
  21.         stosb
  22.         endm
  23.  
  24. cseg    segment
  25.         assume cs:cseg,ds:cseg
  26.         org 100h
  27.  
  28. main    proc near
  29.         cmp byte ptr ds:[80h],0 ;parametre girilmiƒmi ?
  30.         jz error    ;parametre yoksa hata var.
  31.         lea di,dirname
  32.         mov si,81h  ;program ile parametre arasìnda
  33.         clsspc   ;bìrakìlan bosluklarì atla
  34. done1:
  35.         lodsb    ;parametreyi harf harf al.
  36.         cmp al,32
  37.         jz file1ok
  38.         cmp al,13
  39.         jz file1ok
  40.         stosb    ;deºiskene yerlestir.
  41.         jmp done1
  42. file1ok:
  43.         mov al,0 ;sonuna 0 koy.
  44.         stosb
  45.         makedir dirname  ;directory'i yarat.
  46.         chdir dirname    ;içine gir.
  47. exit:
  48.         mov ah,4ch       ;dos'a dön.
  49.         int 21h
  50. error:
  51.         lea dx,errormsj  ;yardìm mesajìnì
  52.         mov ah,9         ;görüntüle.
  53.         int 21h
  54.         jmp exit
  55. errormsj db'MCD <[drive:][path] DIRNAME>',10,13,'$'
  56. dirname db 64 dup (?)
  57. main endp
  58. cseg ends
  59. end main
  60. END.
  61.